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IDENTIFICATION 


PRODUCT CODE: MAINDEC-11-DTRSA-A 
PRODUCT NAME: Pat = RSOS/RSOY DEVICE 
INE FOR MPG 


DATE: . JULY 1976 
MAINTAINED BY: DIAGNOSTIC ENGINEERING 
AUTHOR: A. W. LEIGH 


COPYRIGHT (C) 1976 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


aa Beg PO ge Ke ; mores a 


nee Sec ed aia ie 2 iy SLE 


SHALL AT Te IMES REMAIN IN DE 


N TH 
PB PRP RE E88 en 
BY DIGITAL & CORPORATION. 


PO RS ROT SUPPLIED By 


% 


~ 


—_ rr _ 


“DTRSA-A —-RH11/RH70 - 
REVISION HISTORY 


am 


RSO3/RSO4 DEVICE ROUTINE FOR MPG MACYI1 27(732) 24-SEP-76 14:12 PAGE 2 
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* STANDARD DEVICE ROUTINE TABLE 


. TITLE AbinoeC- ISDPRSR-AY Re Ot  RenS/RSO4 DEVICE ROUTINE FOR MPG 
;REVISION °A’ 
;FILENAME OF “TRSAAO.MPG” ON MPG/XXDP MEDIA 
sMACYI1: DTRSA? , OTRSA?/CRF : SYM/DOC=DTRSA? .P11 


iBABER tape: PUNCH DfRGAY NPG/FILE: ELEV 


000000’ -CSECT RIJPII 
-OSABL GBL 
EQUALS 
072460 {tTIME=30000. ; TIME COUNT FOR INTERRUPTS 
poo NRTRK=6 3NR OF T 3. 
9001 a 4 sh OF SEC 
77776 2 ; 
boogie REGNUMS (5 ;NR_OF DEVICE REGISTERS 
1011 STSLUP=1011 ;LOOP_CONTROL FOR “STSTAT™ ROUTINE 
XXXX=0 ;VALUE TO BE TAYLORED BY DEVICE ROUTINE 





RPC 

freon BIT EQUATES 
DvA=4000 

fates 





-_ 


GOs] r | 
. VICE BIT EQUATES 
010000 Aess 088 | 
ae 
ITys20 | 
10 BAI=10 


—— ee A... 0S eae —_—e 
" é 
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_ DTRSAA.P STANDARD DEVICE ROUTINE TABLE 


:RSOS DEVICE BIT EQUATES 
ATR=1 | 


=] 


AReeh peyrce BIT EQUATES 


;SYSTEM FLAG-WORD BIT DEFINITIONS 


AMVER=1 : 
eBurosi8 
-DISK COMMAND CODES ‘ 
SCCODE=10 é 
SCODE=30 
WCCODE=50 


: DEVI NE (DFLGWO) FLAG BITS 
ARF Tbe 1fod00 wart 
ANY arts ern Rage 

onot I SSUED 
DOTERM=2 : iPRoce Ss 1/0 TERMINATION 
IOERR=1 : ON CURRENT 1/0 


0 b+ be Be B= Be Bo Be be BB = bh bo 8 he Be hh Be Bh bo bo Bo pe 
RR BBR RR Sow rune auxin 
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P 3 we s Be. eee eS AESSSSS sss 
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5 £ bee Ose Soae 
: fe aes Steen 
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SEQ 0070 





3 8 
ADDRESS. 


PER Aor 
ADRS ) 
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yi yay 


BIT 7 = NPR DEV 
(18 BI 


Bit B= 5 


Trek Pos 
{THE DEVIC 
;VALID DEVICE FUNCTIONS 
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LLM, Geese 
ie ee 


-SBTTL COMPILER TABLES & CONSTANT AREAS 


a 
oS 
Ss, Pesce, 


SEE 33888888888 


ere WALELELLALL 


aes a 
an 833838! ce 


eo —“ecereremrmmepnies: J semcomaerrcmicn 


051501 
040514 
041104 
See 051115 
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SEQ 0071 


: 3 
: é : 
n Sf 
gi 2 : 
zs & g S 
a a 3 ; 
2 
etree 
oo ee ae ~ ma we SEESee 
ohotain ofobebt Ftd sS85-5-8.8.5.8. DDD 
Park ee Aste et ie ened SEP EMS 


— - 


Beata tats ese es pass PEEEEEE 


LUELLA 
PG RERRERERREEES 
caenEES g UBRERRCRURARR Z5554R5 
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2 sacnasdaneatinenianneateancdameonat 
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SEQ 0072 
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RH11/RH70 - RSO3/RSO4 DEVICE ROUTINE FOR MPG 


COMPILER TABLES & CONSTANT AREAS 


NAINDEC-11-DTRSA-A 


DTRSAA.P11 


| 


ssh es eeee 


Soe Kee kee Meee Rowe Rome Boe kom koe | 


888888888 


rere ef & & & 


a : 

= o 

— x % wn x § . —- & os z re 

: 

BEALE Bosese cf 

d EERE: MekacameRceteee: | Bzg 

a SORES te eee kati B Egat 

B POCSCSCRCE ERERSCECRERRRERERSS 5 wtae 
2 i 












Teel 
STM i 
TEPPREECEOEEP ET? gi 
eee oe 
SESS SAAS hth feu a aa eS 


RRRGCRARMAMMAMARCTAA 


Ren Wise eg i eee ie tee 
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on att ee RH11/RH70 - RSO3/RSO4 DEVICE ROUTINE FOR MPG 
DTRSAA.P11 COMPILER TABLES & CONSTANT AREAS 





=) Bites: feours Be Vi 
1060" : VIW4 
1062" 1 ‘ 1 END OF TABLE 
3eu ; 
= MODEL STATEMENT TABLE EXTENSION 
001064" Goo ASENTL: 0 
358 OO0106S’ 377 OS2101 000377 MSFMTe: Pect2 (377) /AT/<377) 
359 001072’ 377 000 MSFMTS: -BYTE 377,0 
360 “EVEN | 
ES ;DEVICE ROUTINE CONSTANTS & EQUATES - 
365 
366 001074’ HSKPST= 
| 367 ‘ po1074 ISTAT= baneaues ;STORAGE FOR DEV REG’S AT INT 
* 900000 S000 Son000 van , 
go0000 900000 
369 Of NON0NN .WORD 0,0,0,0,0,0 
3 : : .BLKW 14. :DEV REG CURRENT VALUES STORAGE 
«se COUNTS: 
| 373 BYRD: Be ;BYTES READ COUNT 
8 ee BYTES WRITTEN COUNT 
| 3% “WORD 0 
377 : ‘Be ;BYTES CHECKED COUNT 
78 7. ;READ CMND COUNT 
a cannes : HBR 8 SHITE ERB GON 
382 001206" oo0000 SCNT: “WORD 0 ;SEARCH CMND COUNT 
383 Botsie> pooDDD BRVENT: “WORD SBRIVE GLEAR CAND. SOUNT 
385 0012814" 000000 ERRCNT: “WORD 0 sDEVICE ERRORS 
5 RIE St: eB Bete ea acess oO 
388 001222" DTECNT: -WORD 0 sDRIVE TIMING ERRORS 
360 Go1S8e° Sooo RERENT: “HoeD 8 ile 6 ERRGRS 
RIE: a Rog: MB 8 INFERRGPRE Ei”? cme 
334 000024 CNTNUM=CNTEND-COUNTS/2 ;SIZE OF COUNT TABLE 
345 SB153¢; BRBBRR : BRR ADR oF Brie tBbir Wefas 
398 001249" 900000 CURFLG: .WORD 0 SELAG WORD OF CURR ) 
cs RIS: HERR CR: HE 8 7 “a 
401 001246’ “WORD 0 
402 001250’ 000000 CURCNT: .WORD 0 :NEG WORD CNT FOR CURR CMND 


— 


‘ 


| 
| 
| 
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Glee RETRY a 
SS FLAG 


;BASE VALUE FOR RSCS1 REG 
;BASE VALUE FOR, RPCSe REG 


;PATCH AREA 


———— 
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DTRS@A. RSO3/RSO4 OM MPG 
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SUPPORT ROUTINES ENTERED FROM 
-SBTTL RSO3/RSO4 SUPPORT ROUTINES ENTERED FROM MPG 


004374 
000002 





REPORT: 


Ss: 


108: 


15S: 


;DEVICE ROUTINE HOUSEKEEPING 
;JSR_ «RS. HSKEEP 


3 - WORD Oo OR 1 
BESTROYS ROLRI 

: MOV RTRY 

fi a 

TST f )+ 

oo 

AbD Pc 

or ental me 

BNE Bas 

RTS RS 


;RSO3/RSO4 REPORT ROUTINE 


ISR RO, SAVREG 
JSR PC’ SUPTAD 
MOV (RS) RY 

BIT #2,R4 

hia. Be STSTAT 

; WORD cota 
BB 

aw A 
BNE Os 

eR ‘ Bevto 
BIT 

BEQ STScnT 


MACY11 27(732) 
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SEQ 0075 


S TRY ATTEMPTS 
+ oe Ripe VAL VALUE 


RPCS2 VALUE 
TIONALLY DO HSKP? 

iN Y- 

OPSW SPECIFY EACH PASS HSKP? 


:Y,N-30S 
:SET UP FIRST WD ADR 


;SET UP # OF WORDS 
sHSKP ALL NECESSARY AREAS 


;EXIT IN-LINE 


AGWORD 
T 18 = 
T STMNT CALL 
BIT 1 = DO STATUS REPORT 
BIT O = DO COUNTS REPORT 
;SAVE REG’S RO - RS 
I PROG TBL ADR IN R3 
*GOING TO DO STATUS DISPLAY? 
iXANSS STATUS REG’S 


Bac NG ONTS AT END OF 
SET UP 


Riss) 
OF’ NTE 
iGEis*cnt GoRDS 

N-1 


DECR CNT 
:CK’ED ALL WORDS? ( 


‘N-10$) 
:60 TO EXIT -- cits. ARE 0°S 
SPLAY DEVICE I.D. 
sDOINE STATUS DISPLAY? 
Y,N-DISCNT 





1500 


151 
1514’ 


473 
478 


BURRS. 


283 
cammainatt 


> 
oe 


Sta iaop tne Taree Rie ta 


TRS LOE EHGRNG Na eBaNe GMOS oR 


ob bb bt hb bh = 0 Pb be b= 0 0 0 0 bh be 8 ep 


UNO UU UT UU 

ee ee ee ee Se ee ee 

WONMU COO 
e2 nd 


“see elcermhlUcCmUc OCU CC Se 


SOON TR ES 


8888888888 _ s88888S88888S88888888S88Ssssssssssss 


B+ b+ = b+ b+ bb 


NNNN 
CS oe ee 
ocVo 


1 


oe 


8 
ices 


ue 


atatatate 
_ 
<£ 


aooaie 


DTRSAA-P1LRSOS/RSOM SUPPORT ROUTINES ENT 


40S: 


DISCNT: 


RPTLP: 


RPTBAS: 


RPTEND: 


DVREX: 


REPTBL: 


BEGeuesssees 


: Bema 
on 


aga 


SSSSSASSSS 


weet FOR fl 


J 
BIT 


CMDCSK-RPTBAS 
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eM ees aT 
;SET UP # OF REG’S 
jALL REG’S = 0? 


;ISSUE ’AT LAST INT’ MSG 


;GO DISPLAY STATUS AT LAST INT 


; ISSUE CURRENTLY’ MSG 


;GO0 DISPLAY CURRENT STATUS 


iStspay cours? 


cet Up 6 OF WORDS 
SET UP ADR OF CNTS 


;SET UP TBL ADR 
ON ee ES le S/R LIKGE 
ALL 


GET CURREN Sunt 
;CONVERT IT TO ASCII 


;RESTORE REG’S 
POINT AT NXT CNT 

; DONE ALL WORDS? 

:Y N-RPTLP 

it ISSUE COUNTS MSG 


; ISSUE “END OF REPORT” MSG 


RESTORE REGISTERS 
T_UP RETURN POINT 
{EXIT IN-LINE 
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DTRSAA.P11 RSO3/RSO4 MPG 


oe 


00S427 
een 
* 005537 


SUPPORT ROUTINES ENTE 


; TIMEOUT ERROR ROUTINE 
;JSR RS,TOUTER 


003734 TOUTER: JSR 
SB Sain 
002544 ISR feliv TVECT 
999199 (RY) 
000010 10S: if Sp 
003702 J ipticente fi 
(SP)+.R5 
176024 JMP JCUPGER 


;KILL USER PROGRAM ROUTINE 
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SEQ 0077 


S/R CALL 
;SAVE ALL REGISTERS 


i FOnd” cle’ statis = O'S 


ick ¥ ah. yt VECTOR CONTROL 


‘s if 

T T VECTOR 
*RESET WAITING FOR I/0 FLG 
: ISSUE 1/0 TIMEOUT ERROR MSG 
; RESTORE REGISTERS 


RETURN ADR 
'G0 TO ERROR EXIT 


S/R_ CALL 


MUST cmt BIN PROG TBL ADR 


fy RS, KILL 
STROYS RO 
175774 KILL: MOV leans Ri 
002476 TVECT 
{LEX 
000100 BITB #100, (R1) 
ite iit 
000100 B  #100,(R1) 
10$: JSR ,RINTV 
KILLEX: RTS 


mee em. oe ee ee + ee Cs ee ee 


B02 
Cah OTRAS el ee ro action Ad SS ah at FOR MPG MACY11 27(732) 24-SEP-76 14:12 PAGE 7 
-SBTTL RSO3/RSO4 NON-1/0 FUNCTION ROUTINES 


“ 


squammanmenannone ¢ 


;"STEPUP™ FUNCTION ROUTINE 


;JSR RS.STEPUP * FUNCTION CALL 
:.WORD NBR INCREMENT FACTOR 


ae pate 10 SECT 8 
ox io tes eae 


+f + TRAK 8 IN RANGE? 


Se ile 


fects 
etn STEPU2: 


conne E 
2 


020104 STEPUI: 
1 


STEPEX: 


23 SEPQRZEPTE: 
me aid 
Fs 


reRRIRS 


0- > - 6 - bh +e ob =p 


iz) 
aiatataiaa 


eS sis: wae ren aes 
a 16’ 000205 RTS RS ;EXIT TO USER PROG 
n STPCOM: 
Sa * 016701 175662 MOV TRAK ,R1 ;GET STARTING TRACK 
603 ¢C * 216702 1 MOV 2 Re ; C 
* Ol 0001 MOV TRK RY GET NR $ 
, 1 5001 pad ti ; AND NR SECTORS 





;"STEPON” FUNCTION ROUTINE 
Bo RAT BERRY Pao 


DO COMMON SETUP 
oper FACTOR FROM SECT 8 
8 IN RANGE? 


OOOO ronunrd@ 
0 0-0-2 b= bs O20 bs Bo he 


WDONDWU.£ WTO 


004767 177752 STEPON: 


04 STEPO1: 





ee 





;"WAIT™ FUNCTION ROUTINE | 
;JSR =—s- RS, ,WAIT FUNCTION CALL 
002172" 042767 100000 175602 WAIT: BIC SWAT TMD , OFLGWO ;RESET THE “NOWAIT™ FLAG 


SRR ERROR BORER Panes 


SES 0076 


—— --— em ee ee oe ee d © - Cie 


| MRINDEC-11-DTRSA-A 
DTRSAA.Pil 


ICE UP AE ORE COUR COIR Sb adds 


Ft 3 


C02 
VS ro RAE LRTI FO 


a ha 


O0e222" 
002230’ 


Babess 


042767 
000205 


042767 
000205 


175562 


177030 


177020 


177012 


NOWAIT: 


APORT: 


BPORT: 


i 


HR 


— 

»RINTV 

RTS 

;"NOWAIT" FUNCTION ROUTINE 
;JSR RS, NOWAIT 


SAITO, PLEO 


;"APORT” FUNCTION ROUTINE 
;JSR  RS,APORT 

Bie | ae canbe 

;"BPORT” FUNCTION ROUTINE 
;JSR § RS,BPORT 


BIS SPORT ,RPCS1V 
RS 


RTS 
;"000" FUNCTION ROUTINE 
;JSR RS, 000 


BIC SPARITY,RPCS2V 
RTS RS 


MACYL1 27(732) 
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1 Pb OE 


IN-LINE 


FUNCTION CALL 


;SET_THE “NOWAIT™ FLAG 
fat IN-LINE 


FUNCTION CALL 


;RESET THE PORT BIT 
;EXIT IN-LINE 


FUNCTION CALL 


;SET_THE PORT BIT TO 8 PORT 
;EXIT IN-LINE 


FUNCTION CALL 


;RESET THE PARITY BIT 
;EXIT IN-LINE 


Me A 
SEQ 0079 


rr eee ee 


oe Tes RH11/RH70 = RSO3/RSO4 
DTRSAA.P RSO3/RSO4 NON-170 FUNCTION ROUTINES 


; "EVEN" FUNCTION ROUTINE 


674 
pce 


“fot 


e 


PRLGR SBIR REE EB A 


ce SSE 02767 000020 177002 


DEVICE ROUTINE FOR MPG 


ae 


;"BAION” FUNCTION ROUTINE 


poesee. peeeke 000016 176772 BAION: Bie 


poese Goats 


000010 176762 


;"BAIOFF™ FUNCTION ROUTINE 


BAIOFF : BIC 


;JSR  RS,EVEN 
SPARITY ,RPCS2V 
RS 


;JSR  RS,BAION 
pt, caer 


;JSR = RS, BAIOFF 


#BAI , RPCS2V 
RS 
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FUNCTION CALL 
‘Pete thet THE *. TY BIT FOR EVEN 


FUNCTION CALL 


spat THE BAI BIT 
sEXIT IN-LINE 


FUNCTION CALL 
s RESET THE BAI BIT 
sEXIT IN-LINE 


SES 0080 


a ee fee + SOC ee 


i 
} 
| 


ee ee se ee eC. ee 8 ee ee ee 
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DTRSAR.P11 RSO3/RSO4 NON-INTERRUPT TYPE 1/0 FUNCTION ROUTINES 


~SBTTL RSO3/RSOY NON-INTERRUPT TYPE 1/0 FUNCTION ROUTINES 


;"CRESET” FUNCTION ROUTINE 


SOIR ERS ES 


| 
| ; JSR RS, CRESET FUNCTION CALL 
002302’ 004767 001722 CRESET: JSR PC, CKDBSY ;GO0 CK IF DEV IS BUSY 
Bessie: Geese se Bt tia OF alt 
iE» INITIALI aif 
710 002320" 052764 O0004O 000010 BIS @CLR, RPCS2(R4) : PERF 
71g . 4 10S: TST8 RY) ;READ eer 
71 . sNLY- 
} 71 . ° ? 
| 714 ae l ;Y,N-1 
| oie Oe 336" 004567 002220 JSR A ae :66 ISSUE CRESET TIMEOUT ERROR 
HE BRE HS rs sy wo om et et 
a F 20s: RTS RS EXIT IN-LINE TO USER’S PROG 
| 


mney ge FUNCTION ROUTINE 


mii oo 
re PORTHERS COP Coa 


DRESET: HOV i ie ;SET up DRESET CMND 
NC Sado DRESET cbamenes chanenes 
ISR PC, ACOHSK THE DISK 
175402 Bis acho SU*ANYIOI , DFLGHO pen ive 
30S: Dee ."" : Lay FORCAY FEW MICROSECONOS 
ist (RY) ;1S Is "sce ERROR BIT SET? 


BSSSFALGeHSLONOIERO EDO OO PD 





Sos 
BIT ETRE +NCPE, (RY) The OR MCPE ERR BITS SET? 
000012 BY tPeR. RPDS(RY) Bae’ BIT SET? 
BNE 40$ pkey 
BIT 4 ATA RO" att 8 IT ara Sym : ri nee 
40$ eee aes RRC UN sos NON-INT TERM ERROR 
: . WORD Rat FEB CERNBAS 
Imp ICUPGER :GO TO MPG’S ERROR RETURN POINT 
SOS: RTS RS EXIT TO USER PROGRAM 


eee ee ee —_-— 


| . F 
DTRSRACPLL RGOG/RSGM NON INTERRUPT TYPE 1/0 FUNCTION ROUTINES 
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S/R CALL 


;SAVE R1 
fe My INTERRUPT TIMER 


Ry aay 
a, SP OER TNY UNIT 8 ERR MSG 


T 


ee arp TABLE FOR 
THIS UNIT 8 


3 STORE ATA BIT MASKS FOR 
T 8 BAI airs IN UNIT 8 


NTO 


irda DRIVE? 

:FIRST TIME? 

IRST TIME 
ll ERROR CLE 


OF Pe DRIVE ERR MSG 
REPOR 
;SETUP I T TIMER 

ON=L 


a ME THRU ON THIS ERROR? 
:SET BPS aor OF INITIATION ERR MSG 


Lae 


782 sHOUSEKEEP THE DISK 
ie ;JSR PC, ACQHSK 
| 'RS = ADR AFTER USER PROG JSR 
757 'R4Y = RPCSI ADR 
| SS :R3 = PROG TBL ADR 
:DESTROYS RO 
oes : : MOV R1,-(SP) 
re ; " MOV = BITIME, PTOCNT(R3) 
765 , BIC 8CMOISU, DFLGWD 
192500" bie? MOVE POURDV CRS) ,RO 
| : 002510" 1 141 op3134 sane BLos i a 
«BS ee ee e oS 
a5 . 1 : 10S: MOV RO RI 
| = : i AOD Pct 
«OS BiSeue Pisier Sonose MOVE ce nyAta 
Pre Babess: MLN PesS ge gpa ia 
, 000010 128: RPCS2(RY) 
He HEE Be com com ft eygresemn 
req mase0g" Gi3 Bed ep 
ee: Biss ie 
Fe RE: Fer coon cmon =e lo. senn 
730 masees" Oie7es 002716 000230 168: Mov NON ,ACQEAD 
ee eee Sask a MT 
735 oosee” Ole7e7 002774 00202 MOV N-ERMBAS , ACQEAD 
fen: Gon 2 2 fh 
53g + Too0e2 Be. «loos 
Boo neat rate o4oo00 900014 BIT UNS, RPERI(RY) 
Boe Ooee74" Ge01e? 0000s cre Teas 
eos Boe7be" BTe5e? 002750 oDDI4E MOV BTAITOE-emrons, aces 
ee Boer ie" Bos20) cos: rnc RL 
14’ 016400 o00016 MOV —«RPAS(R4),RO 





SEQ 0083 
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G02 


Sakae! 
&o* 


; 


AN ATTENTION? 


SARCOS/RCON NONCINTERRUPT TYPE LL FUNCT 


;1S 


Pian 
Bin, 


»RO 

RO 
BG, 108) 
RPAS (RY) 


aec-cewrnaae, 
Od 8 4 8 od od Od oh md m4 
@9OMmooaca a 


So PREVIOUS 1/0? 


;ERROR 
see 
stT 


¢ 


Seti 


CMNOS BEEN ISSUED? 


Z 


ss 
so5 


— — we 
Se 


ADR_OF UNSAFE ERROR MSG 


, DFLGWD 
~ERMBAS , ACQEAD 

GWO 

'G0 


#5 
Bees 
wee 
a, we 
eSacr- 
jsehast-te 


: 


Se 
eteeaE*s.. 


oon eoeeeeeerenreeee e & 


f B 

a in 

a 
gb we 
- ey bs! 


een “eE 
oe 





BRS aeaAS 


BES aBeAS 


B8S8SN22 


BaSseeHs 88 


SNS RMINSRRSNDRMADRR ET YEELES PE BAANY 
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DTRSAA.P11 RSO3/RSO4Y INTERRUPT 1/0 TION ROUTINES 


2 .SBTTL RSO3/RSO4Y INTERRUPT TYPE 1/0 FUNCTION ROUTINES 
B60 s"READ” FUNCTION ROUTINE 
bbe ;JSR_—-RS, READ FUNCTION 
;.WORD ADR TA S (BITS ie - 21) 
Bb ie ADR TA (BITS O - 15) 
Be CNT 
B56 : DEV (NOT USED) 
868 003124’ 012702 000171 READ: MOV 'IE!GO,Re sG61 READ DATA COMMAND 
869 003130’ 012701 000235 MOV #235, Ri : SETUP FLAG WORD 
870 003134’ 004767 001070 JSR PC. CKDBSY GO Ck IF IS BUSY 
871 053140" ? ogee INC ROCNT sDO 1 TO CNT 
| 87¢ OO3144" Ol MOV «PC RO 'SET UP AOR READ CNT 
003146" 176020 ADD #8YRD+2-. , RO 
| Br 003152’ 000441 BR. CMDCOM ;GO TO CMND COMMON PROCESSING 
| 8% 
| 877 :“WRITE” FUNCTION ROUTINE 
873 : JSR WRITE FUNCTION 
| B80 is BRD \ACR BATH ADORESS (BITS 16 - 21) 
«B81 : | WORD DATA SS (BITS O - 15) 
882 ;.WORD CNT 
83 WORD DEV (NOT USED) 
88S 003154’ 012702 000161 WRITE: MOV 'IE!GO,R2 GET WRITE DATA COMMAND 
886 003160’ 012701 000235 MOV #235, Ri *SET UP CMND FLAG WORD 
887 003164’ — 001040 JSR PC. CKDBSY :G0 CK IF Dev Is BUSY 
B88 003170" 176006 INC WRONT ADD 1 TO WRITE CMND CNT 
174° O1 MOV PC, RO SET UP ADR OF BYTES WRITTEN CNT 
890 003176’ 062700 175774 ADD 88YWR+2-. , RO 
eo oo3202" 000425 BR CMDCOM ;GO TO CMND COMMON PROCESSING 
893 
es ;"WRCK” FUNCTION ROUTINE 
He ar apace Bae bop Son ITS 16 - 21) 
e38 : ADR ey ADDRESS (BITS O - 15 
99 :-WORD CNT BYTE COUNT 
901 003204’ 012702 000151 WRCK: MOV BWCCODE!IE!GO,R2 GET WRITE-CHECK COMMAND 
aos possi GONTe> OTaiB TOBE ekpaSY | Be okt TE Dev Te Biot 
904 003520" Bese reais The CKENT “ADD 1 fo eee CMND COUNT 
g0S doses’ 010700 MOV PC RO :SET UP ADR OF BYTES 
906 003226" 175750 ADD sBYCK+2~-. ,RO _ ;CHECKED COUNT 
307 003232’ 000411 BR CMDCOM :GO TO CMND COM PROCESSING 








_- -- a eo ee ee ee ee ee ee. 
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SS lea RH11/RH70 - RSO3/RSO4 DEVICE ROUTINE FOR MPG MACY11 27(732) 24-SEP-76 14:12 PAGE 9-1 SEQ 008s 
_ DTRSAA.P RSO3/RSO4 INTERRUPT TYPE 170 FUNCTION ROUTINES 


; “SEARCH” FUNCTION ROUTINE 
;JSR  RS,SEARCH + FUNCTION CALL 
A 


ol i ee ts oe 
Hae feces — an ci od MON PROCESSING 


31 
Sle 
ae 
if 
1 
i 


——_— ee eee 


ae RH11/RH70 - RSO3/RSO4Y DEVICE ROUTINE FOR MPG MACY11 27(732) 24-SEP-76 14:12 PAGE 9-2 SEQ 0086 
DTRSAR RSO3/RSO4 INTERRUPT TYPE 1/0 FUNCTION ROUTINES 


; INTERRUPT TYPE 170 FUNCTION COMMON PROCESSING ROUTINE 


Ir: SES FEE so 


;RO = AOR OF BYTE COUNT, IF APPLICABLE 





5h 
| S ;R4 = AOR OF RPCS1 DEV REG 
3 
328 
;CMND FLAGWORD FORMAT: 
BIT 7 = 200 = PERFORM RETRIES ON CMND 
$33 ‘BIT 6 = 100 = NOT USED 
2 9 8 oe ears zm om 
| 936 :BIT 3 = 10 = 
x an {2 OS: POE 
339 'BIT O = O01 = 4 ARGUMENT CMND 
| a 
| #8 + HRY BR. RAD ARR RCMB IRE 8 HOSERESP OTHE DISK 
& EAI APH oe 
| i gly #3,R1 THIS, GINO HAVE BUS FOR 8 MD CNT 
MOV (RS)+, CURADR STORE 2 WORD BUS ADR 
a1 HOV (RRO ;GET BYTE COUNT 
ae CLC : :MAKE IT A WORD COUNT 
953 ROR 
S me NAG fT necorive 
5e BIT #1/R1 ; THERE A 4TH WORD? 
ee Fee 108 ‘Bypass IT 
ef Rhy yr Yc nal 
Es cath is ,INTEAD INIT TERN Natt ON meg 
gre 7 (RS) T WATTI F = / TERM FLAG _— 
ae Be lies DFLGWD iS] CMND 8 
967 MOV ;ISSUE SPECIFIED CMND 
8 TST :"NOWAIT” BIT SET? 
370 BIC SWT4IOT, (R3) 'RESET WAITING FOR 1/0 TERN 
971 BR SOS : EX! 
372 JSR —s RS, ACIOBSY :WAIT FOR 170 TO COMPLETE 
97 JSR PC; PROCTM GO PROCESS TERMINATION 
ra RTS RS” EXIT IN-LINE TO USER PROG 
$76 


SEQ 0087 





<— & & 

8 > 5 5 

z SE Ge satis & 

e : S = & ESS g 

i > @ 202 vézere oe 

z Sas $98 sree yep 

Raed cage gente tarnss” 

oO « 

foes pie Se Wedaees eed 

as 5 . 
uss ou! eg ge 
4 8S tog FA = 

gc wee &§ gf of of EE 

ay 3 a unnn 3 = doaante 298 BS 

woo 4 BeBe B Gepeea pares oaeRsS 

= % 

& - 

“Ot SDUSEREESACELSS ES 

aS Z 


/RSO4 

YPE I/ 
SUI 
10$ 
20$ 
30S 


rt 
10 Trae 


ge a5 ait 


wnonwo 


= Att te 
—wO 
sseuaas 


2S i 
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DTRSAA.P11 
977 
79 
31 
982 
3a 
f 
332 
an 
995 
& | 
33 
1000 
102 
1003 
100s 
1g? 
1008 
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DTRSAA.P11 RSO3/RSO4 INTERRUPT SERVICE ROUTINE 


i i .SBTTL RSO3/RSO4Y INTERRUPT SERVICE ROUTINE 
101 
ibid » BREE! Bas486 RHPINT: Yok BR» BORE $80’ErORE ALL Bev Recs 
101 ; 7e3ig « WORD star. 
it 003564’ rea osi4e Ish PC. SUPTAD igor ip p Up Prog Ta 6 RCSL ADR’S 
at ie eS 2 ee 
ie 003576’ aes BMI cKse 
is mea ite 000040 Eo TO SET ATA? 
1 , 003053 000640 sNORTR-ERMBAS, INTEAD ee A ERR MSG 
102s y? ? nate 174160 SETERR: fe #10E R OER, DFL GHD E TERINAT ON ie ERR FLAG 
1027 : : : 175404 BH #4 cURFL if ISN 
1029 003636" O1b46? oo0002 175406 eal HOV RPHC (RY) ,FINCNT AYICINTES em count 
1031 boseso” Bodie? i7a2e0 * Re | ORINENT SBE STORE Ot ReGrS TRS 
1033 003654’ 032714 020000 CKSC: BIT #MCPE, (R4) ;MCPE ERROR SET? 
1 ; 402 Q ?N, Y-HARDER 
ibe fheeee’ Ree gonaug te oer 
| i DOSEEE 1 28S IT STRE, CR) ;TRE ERROR BIT SET’ 
| 1038 003674" 32764 o¥0000 cDDO1 BT sERR, RPDS(RY) ;EAROR SUPNIARY BIT SET? 
HBS Be HOS ome rn ty 
«104 0° i BIT MYATA, RO int ata BI Scere 
Toss parle’ prdoe4 FOV RO R2AS(RY) T OTHER ATA BITS 
«1d BES288; GABOR? BBBBAS BY = SRY ne 
| 14  Ooeses 177164 OO0016 30S: BIT Nasi RPAS (RY) ny ATA scinie 
ibs? Boar ae Barre ’ Bed 30s _' Y,N-30S 
ips nea rye oo0040 40s: BIT = 840R ; CAND “thai TO SET ATA? 
104% - 3NLY 
1050 1 003073 00500 MOV #UXPATA-ERMBAS, INTEAD SET UP UNEXP ATA ERR MSG ADR 
1051 003754’ 000717 BR SETERR :GO TO ERROR EXIT 
ites 003756" 932764 037400 000010 ERRFND: BIT ,RPCS2(R4) ;UPE/NED/NEM/PGE/NXF 21 MXF /MOPE 
{ 0307 067017 000014 BTT 7, RPERI (RY) sin POPE ULE 7PAR/RMR/ 
108e bos7ae* 687180 ’ Ne R (padi. AURAL Prac gilts V-HARDER) 
i, Gbxee Biggs "10000 mmo, it Se 
1053 00400" athe 010000 00014 BIT 4010000, RPERI (RM) ote IN ee 
{Det Boule” 307 175234 CKRTRY: fet RTRYIP ALREADY DONE RETRIES ON THIS CMND? 
1063  DOSte? 175224 aor CURRTY ARE TRIES SPECIFIED? 
i ies: Be eae i eaole 
1065 , 64 100000 Oo00010 BIT #100000, RPCS2(R4) ae ERROR? 
1066 OO4040’ 001403 BEQ 42 :Y, N42 








MO2 
TRSA-A  RLL/BH7D - REO3/REOY DEVICE ROUTINE FOR NPG 


BESRRIGRE OSES REE OS Ia Iola TaN oee 


b+ b— 0 P= b= = b= BF = 0 FB 0 0 Fb 0 0 B= 0 bb 9 0 0 be bb 9 pe oo pe fe 


8 


cr BL [CNT 
I #10000, RPERI(R4) 





000014 42S: I 
rica CNT 
000014 sos Sha a RPERI(R4) 
* Beg «Bg, 
INC DCKCNT 
000010 Ses: Sha #40000, RPCS2(R4) 
BEQ css 
Ine WCECNT 
css: ¢ CURRTY 
000320 AOv INTEAD 
BR TEETER ett 
60$: INC TRYS 
INC RTRYI 
MOV #TRE' DCCODE!GO, (RY) 
MOV Re 
JSR 
000030 MOV sI TIME. PTOCNT(R3) 
MOV Re, (RY) 
IMP INTEX 
000014 HARDER: BIT SUNS, RPERI(R4) 
BEQ ISETER 
MOVB  8DCCODE!GO, (RY) 
JSETER: JMP SETERR 
000014 CKC : BIT #106000 , RPER1(R4) 
BR CKRTRY 


MACY11 27(732) 





24-SEP-76 14:12 PAGE 10-1 SEQ 0089 


;ADD 1 T T COUNT 
Rca om 


"ADD 1 TO DTE COUNT 
GO CK RETRY COUNT 


ty . 

te RETRY COUNT. 
een 
;CNT EXHAUS 


$85 10" 


TRY COUNT 
? (Y,N-60$) 
RETRIES ERR MSG ADR 


: / 
;RE-ISSUt THE ORIG CMND 
GO TO INT EXI 


31S THE UNSAFE BIT SET? 
TERR 


sv 

:G0 TO ERROR EXIT 
:60 T ERROR EXIT 
;I T? 





——__—_— --- — 





MAINDEC-11-DTRSA-A___ RH11/RH70 - rey ROUTINE FOR MPG MACY11 27(732) 24-SEP-76 14:12 PAGE 11 SEQ 0090 
DTRSAA.P11 SUBROUTINES FOR REDS ROOM | FUNCTION ROUTINES 


1108 .SBTTL SUBROUTINES FOR RSO3/RSO4 FUNCTION ROUTINES 

1104 

tie ;CHECK IF DEVICE IS BUSY AND WAIT IF IT IS 

it ;JSR PC, CKDBSY S/R CALL 

118 : DESTROYS RO,R3,R4 

1110 :O0N EXIT: R3 = PROG TBL AOR 

iti : R4 = RPCS1 ADR 

11 , ? CKDBSY: J T : PROG TBL & RPCS1 ADR’S 
tits BedS3e> esi B88016. (Oke Woy RBREETRYD, RO e CoRR CIT 

1115 O04240" O10046 MOV RO, -(SP) IT 

1118 Ooveve” 77747 Bic, 77747 RO SET UNIT 8 & OTHER BITS 
1117 04246’ i (R3) RO Fn mr MY Unt 

tig oaSeE bt 400 : MOV (R4) a S 

tid , Ti2ee4 000010 MOVB (8p )4ppcsocRy) ae, ie UNIT : 

1121 ’ 000100 IT #100,R0 

il , Q 20S iY Wooo 

11 , 173550 15S: ICIOBSY c 

ll ’ BR 10$ :GO CK AGAIN 

tise ver 7 o00002 173474 a T TERM, DFLGWD PROCESS PREV TERMINATION? 
1153 Besos’ Bar48s Bea Sag ERM TN tbs 

1128 004310" 004767 oo0044 ISR PC  PROCTI sab" PROCESS ERMINATION 
1156 aie’ 16767 1 30 IVerap 40$ T ie ete TOR 

{131 004 ; Oe rer 13260 Cobo MOV ues s MEF ATS HORD 
1i3e 004332’ 004577 173530 ‘SR RS, JSETVEC T UP INTERRUPT VECTOR 
1133 004336’ 000000 40$: ~WORD  XXKX - VECTOR ADR 

1134 004340" 90000 4S§: [WORD  XXXX : 

1135 O04342" 1 “WORD RHPINT-. : REL INT ROUT ADR 

1136 OO4344’ 010567 174664 MOV RS, ERRADR :SAVE CURR USER STMNT ADR 
1137 004350" 166767 000004 1746S SUB #4; ERRADR 

1138 004356’ EXIT IN-LINE 

1140 

11a ;PROCESS TERMINATION OF PREVIOUS I/0 FUNCTION 

1143 ;JSR PC, PROCTM S/R CALL 

114s *R3 = PROG TABLE ADR 

1147 ‘DESTROYS RO 

tty8 004360’ 010146 PROCTM: MOV R1,~($P) ;SAVE R1 & R2 

Hey eat 042767 173410 Bic RM, DFLGWD T S TERMINATION FLAG 
118s pog7e. haar 67 Boools 17ae40 aM OTERO HIRCR et Te COUNT? 

1158 oo4402’ O1 174642 y EURCNT, RO ‘eet i TIAL Masi CNT 
ti atthe 16701 174636 Ne NCNT,R1 GE NT 

1157 04414’ 100001 BPL 10$ te Aa a (Y,N-10$) 





—_ mm i ee ee Pg eg 6 BTN IO GSS, A OO OSE 


BO3 . 
| sepggccy one RTO Raa fay Fone a MPG MACYL1 27(732) Ped te " 212 PAGE li-} SES 0091 
eer ‘. S FROM INITIAL CNT 


iy enorme 


108: 


ed eed ed ed ee ed 
0-0-0 ~~ 99+ op 


SSS UFRToABBo 


comme 


TE Most Site oro oF cnt 


1/0 TERMINATION 
NTV RESET] Ry on 


BIBS" 
“2 


; 
| 
4 
| :G0_TO MPG ERR _RETN POINT 


a ee 


;EXIT IN-LINE 


esweee#see#se#e#s#e# 


OnE! B 
I 
Re 
: u 
saimiegiarescares © 
- 
E 


a 
w 


;RESET INTERRUPT VECTOR S/R 
i must ctatAIN proc TB ROR 
7 00020 RINTV: RS, TVECT WAVE VECTOR CONTROL 
5 oe 


16 173306 000004 ry ov Ean ~ 
173342 


ms te 
~ 


ae 


SR 
Os . WORD 
Ss eat IN-LINE 


; TEST INTERRUPT VECTOR S/R 


oe CAE EXECUTED IF NOT Sane 


oR Wms CON CONTAIN PROG TBL ROR 


0+ 0 +0 +60 -+ b+ & + &-< b-= 0 6 b-< © ~~ & -2 <> 2 b= b+ b— b+ & + b <b Bo Oh 0 Be ee 


BIKRKLSCASSBUR RPO Bsa tata Pc 


> +0 +0 +0 +0 + b- «D+ 0 = D+ 0+ B-+ B80 <b + +O -+ b= &-< & 2 b—- & — b+ B-2 & = &  & * 9 B= 0 OO om + > +o + 2 —h-<H-- h<H 


sit 004532" 016767 173270 OOO010 TVECT: MOV IVCTAD , 20S ;GET CURR INT VECT AOR 

5 Beeb ee te. Se wk ae 
AS ee re 
Soe oweee" ot Tectx: RIS RS arin 





a ea a ew se es a eee ee me aoe ene 
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MAINDEC-11-DTRSA-A - RHII/RH70 - DEV NE FOR MPG MACYL1 27(732) 24-SEP-76 14:12 PAGE 11-2 SEQ 0092 
THOR PEE ORR SeROUT INES FOR RSGS Reoy FUNCTION ROUT TES 
: 19 ERROR INFORMATION DISPLAY S/R 
ii RE AE EB if rae 
1214 
HE , 
lel ; 
isig #R3.£,PROG, TABLE. GOR 
1820 004562" oust ? 001170 ERRCS: ISR RS,STSTAT ;STORE CURR STATUS 
1 ’ 1 1 ERRCS1: f TAT-ERSTAD, ERST ;STORE ADR OF CURR STATUS 
Hs Be: Gl HRT BSE OS GY Si ee Bsn ee 
1225 ’ Ol 1 ERRIS: MOV SISTAT-ERSTAD, ERST ADR OF Caer INT STATUS. 
1 4’ O1 eit MOV 4 Tat fess, EBSA 
ie : i oo ERRCOM: HOY (R5)4+ ; es 
1 * Ol ppc001 731 MOV 4 I ie I 
1230 : : IT SGUERCK, POPSWCR) ; SUPP BO PREGA oe CHECKING? 
i DO4ESD’ g20000 00002 i SPRONER, POPSW(R3) ERROR PRINTING INHIBITED? 
1234 Gow660" 000167 onNeN id i ob 7 10 SOIT 
i BEB’ MOV RS’ -(SP) catite 
ise Bose?” eae GR OR USER NODE PRINT FLAG | 
ies Govere" Gaara? Bonioo 173076 prt Minas E Bind Been issuED? | 
Te4 70 ? 001526 ISR PRINT int THE “BEFORE ISSUING 1/0” MSG | 
ies Bite Bs a 
1 716° a ;G0 CALC MSG LNGTH i 
i ’ OO¥SE7 001514 6s JSR ea ;PRINT THE “AFTER ISSUING I/0™ MSG | 
i533 Bourse’ WORD | 
r ’ Ol gs: MOV ;GET START ADR OF ERROR MSG 
i I ey (RO) roe 
1e51 Dow740" 012701 177777 a MOV #-1,R1 s INITIALIZE MSG LENGTH 
1585 - * Se (hg) oe fea NtoR 
i eve aie BY Areas Ne 
1 es ? BOT aee JSR Re’ INT stone “PSs LENG SPECIFIED 
i rea" Eran: RQ 0 
1es3 nants O26 e? 177770 003134 cre ERNGAS, BINVDVN-ERMBAS s INVALID UNIT # MSG OR HIGHER? | 
eb Gowrre’ Qo70t HOY stor RET ADR OF CODE AREA IN ERR MSG 
1 , 1 002464 LD-. RI | 
1e63 005004" 019700 eee Hoy PC, RO was ;SET UP AOR OF ERROR CODE TBL | 
1265 canes 1 MOV ne a4 :SET UP ADR OF STORED DEV REG’S | 


Sent 
SES 0093 


24-SEP-76 14:12 PAGE i1-3 


MACY11 27(732) 


003 
He EAS RH RHE” 


SUBROUT 


MRINOEC-11-DTRSA-A RH 


_ OTRSARA.P11 


| 
i 


--—~ ee eee ee ee ee 


, « 85 bee: 5 a 
, 2 BR bey 9 BB E Gg 

eas tab, bot hte abet Ge 
gee U2 2 oS ates Shy ae he - 

See a ee 

Sa OAS OULRE 2 aoe oe cages. “Heed & &8noR 

cataat at Mitel tetsa, | Sil 

meme Eg Baty Es 32 ings 
ie epapatite seistastnconse se maoveerrwe 


goss Tival al asaataiaaaleceasexouengtuey sUsSREN PAREN 
ae 4 a é gg 
EL 


I LU B. H : 
sais errr 


SESE ECR RARRRRERR Ee SSRN ee 


Sn 


110S: cre 


ERRSNM: MOV 


2 
Ras 


10 172770 
173770 


000100 








ae Ce ee --— - 





MAINDEC=11-DTRSA-A__ RH11/RH70 = RSO3/RSO4Y DEVICE ROUTINE FOR MPG MACYI1 27(732) 24-SEP-76 14:12 PAGE 11-4 SEQ 00% 
OTRSAA.PLI SUBROUTINES FOR RSO3/RSO4 FUNCTION ROUTINES 
ADD = RI, RO sPOINT AT_NXT STMNT 
y tat rte de 
1208: fot . 3ST UP TMNT # DATA 
D0S254" PC,RI ;SET UP DATA ADR 
005256" R00 eSTMNUM-. Ri " 
Bee He Gy cis phe RE MEN wen 
? 7 ll J 4 5g 
005300’ 002130 - WORD STANNG-. 
GossoN" bi gees nov CSB, 8S sRESTORE RS 8 RY 
* Ol MOV (SP)+,R4 
005310" o0d20s ERREX: RTS = RS sEXIT IN-LINE 


;ERROR MESSAGE CODE TABLE 


3377 = GO TO NEXT DEVICE REGISTER WORD 
:376 = GO TO NEXT DEVICE REGISTER BYTE 


'BYTE 0 CONTAINS FLAG BITS & I.D. NAME LENGTH 

: TS 0-2 TH OF BIT MASK + I.D. NAME 
Bit 3-2 NOT tise 

: BIT 4 = NOT USED 

: BIT S = 117 HEALY ERROR B 

: BIT 6 = BIT = 0 IS AN ST ERROR CONDITION 
‘BYTE 1 IS THE BIT MASK 

:BYTES 2 THRU ? ARE THE BIT’S ASCII I.D. 


+ > b-— b+ b= b-+ & + b+ b+ &— b= b= bb b= Bb Bb 2 8 ee 


Se ; - BYT 
pet P53 105 =a ‘Pectt « OD Fee, jSRPCSL ~ BYTE 1 
046440 “ASCII <O0S><040> -MCPE/ 
042010 o40S26 ASCII «104 «010 /DVAY 
051200 os4s04 "ASCII <104><200> /RDY/ 


><200> /DLT/ ;RPCSe - BYTE 1 


+4 4 0-004 00-4 


< 
« 
« 
« »« 
« 
¢ 
< 
« 


S2IN SSSEESRSER ESE pepe et 





Terre 
= 


ee ee eee e+ > +b +b + & +b b= & + + od + 


me 
ARES BBDRERESS: 


os411s 1 004> <002> /MXF / 
04640) 050104 005><001> /MOPE/ 
377 
pse104 og (BS i oe tap ary ;RPOS - BYTE 1 
044520 120 I vith (Age. BaP IP’ 


24-SEP-76 14:12 PAGE 11-5 SEQ 


NE _FOR MPG MACY11 27(732) 
“phi 


1 
I 


RH11/RH70 = RSO3/RSO4 DEV 
NES FOR RSO3/RSO4 FUNC 


~DTRSA-A 
SUBROUT 


;RPAS - BYTE 0 
;RPCS3 - BYTE 1 (11/70 ONLY) 


~ —s% 2 
\ ~ AKERS SS Se S PoTIV=9 N 
eu « « 
aa tt mt tt 
— LYN 0«—- SUV ET SCE g 
~~ ~ otatateateatetea oe eo Ce te te te ee “an 
S 8 8828S88 sass sess ae 
4 
3 =O00 = 
wwe w wwe ww yw we YW we eww ww 
~es ~ Ce ee ee ake em ee a a ee “nen 
Pun 
Biol BRESREE oR RB Ey BUUOBUOD ree BP 
ww ~~ wwe ew yw we wwe we www ~~ 
O44 4 00 4 he 40-404 4-4 > 4 4 


Miia ssi sass 


= Re eee SBOP eaeae artes Sa ReaeneLesexpr.rtearts «= «eo 





ee oe ee oe oe oy 


— 
a8 


<«046> <040> /DPEEW/ 
<O46> <020> AWCEOW/ 


-ASCIT 


-ASCIT 


OS3420 042503 
041527 O42S505 


<O46><010> “WCEEW/ 


-ASCIT 
-BvTE 0 


; TABLE TERMINATOR 





c:e CRA IRRAMRERRRCRREESADEES 


mimbetatadotosentotetatatetetotutet oteteteteteten atten ateenene eee 





“REDE fete Dee Rete FOR MPG MACY11 27(732) 24-SEP-76 14:12 PAGE 12 SES 0096 


.SBTTL SUBROUTINES FOR RSO3/RSO4 DEVICE ROUTINE 





;SAVE REGISTERS RO THRU RS 
;JSR RO, SAVREG S/R CALL 
SAVREG: mov Bi,-¢ ;SAVE RO THRU RS 
MOV R3,-(5P) 
RY Re 
NOV RB’ Pc sEXIT IN-LINE 
RESTORE REGISTERS RO THRU RS 
;JSR RO, RESREG S/R CALL 
RESREG: LM é +4 RS RESTORE RS THRU RO 
MOV (SP)+;R4 
MOV (SP)+,R3 
MOV (SP)+;R2 
MOV (SP)+'RI 
RTS RO sEXIT IN-LINE 
;SET PROGRAM’S PROG TABLE ADR IN R3 & RPCS1 ADR IN R4 
143g ;JSR PC, SUPTAD S/R CALL 
it arene: 1 : SUPTAD: MOV pc AR os ;SET UP LOCATION ZERO ADR 
1 ‘j 1 op SBR) AG PROG TBL LENGTH 
«1453 905750" 016704 172050 MOV DREGAD, RY cey DEY Ge BASE ADR 
16 * 000207 RTS ret N-LINE 
1456 
1467 ;STORE DEVICE’S STATUS REGISTERS 
TSTAT 
14e8 SiBre. REL STORAGE ADR 
1¥6l ES RO,R1,Re 
ies STSTAT: HOV ~ : ashe ADR & MAKE 
nO READ Fo ME on, 
14e? ADD PEARS iSeT ATER USE 
1468 MOV #STSLUP :SETUP TWO LOOP COUNTS 
1469 172056 BIT ucPU70, aCSYSFH : RUNNING ON AN 11/70? 
147 AbD SACL Ou F MORE REGS 
S P 3 
i47e 10s: MOV +1800, rah ou FOR Bt 








| 





eee 


14 ; 
1474 ones” 
1475 ' 
14 ; O01. 





14 0602 

is 

14789 0060: 

RS Se: fe 

1481 QO604G° 

he Se Bae 

1484 : 1 
4 1 





1 
14 

1492 

1493 

1494 

1495 

1496 

1497 

1499 One0e6" 01 
1500 Obeo7e" Oae7es 
1501 006100’ 001402 
1502 006102" 01 

1503 006105" O1 
1504 O06112" 012767 
1505 006100 11 
1508 06124" 

150g obiae” OoNe77 
1808 Ooei36° 000614 
1510 006140" 016767 
i ele: Hes 
1813 Oogles’ GoNS77 
1515 006166" OO0464 
1518 006170" OoNse7 
1517 006174" 

1518 006176" 000026 
1518 006200" 000207 


INDEC-11-DTRSA-A_— RH 
TROAA-PLI SUBROUT 


HO3 
L1/RM7D.~ RSOS/RSON DEVICE ROUTINE FOR MPG ACYL 27(732) 24-SEP-76 14:12 PAGE 12-1 


173100 


: 


ee ee 8 


DEVID: 


DEVIIV: 


DEVIPR: 
DEVIML: 


Re sFINISHED WITH THIS GROUP OF REGS? 
: eT Om NEXT LOOP CNT 
Ss Soe PASSES? (N. Y-308) 

ike 


Bea 
MOV PC (SP) mi : CURRENT STATUS 
ce R (SP)+" : TOR ore rus FOR INTERRUPT? 
eit #200, a(SP)+ :9 TP READY SET IN RPCS2? 
a FRd)+, (RL a a es CONTENT 
BR 10$ :GO DO SECOND PASS 
TST (SP)+ :T OFF STACK 
ADD RO : RPDB 
CLR (Ri}¢ soe S STORAGE TO 0’S 
BR 1 :G0 DO SECOND PASS 
RTS RS ‘EXIT IN-LINE 
:DISPLAY DEVICE I.D. & UNIT 8 
;JSR PC, DEVID S/R CALL 
;R3 MUST CONTAIN PROG TBL ADR 
:DESTROYS RO,R1,R2 
MOV sho. j INITIALIZE TO RSO3 
gir #20, PMDLCD(R3) its IT AN RSO4? 
MOV :YE 
i Talton ev 10 vessace 
MOVB Bees ET an iM UNIT @ 
CMP RO, 87 :VALID UNIT 8? 
BH DEVIIV ry IIv 
JSR RS TASLZ 2 # TO DECIMAL ASCII 
MOV UNASCI+4, UNASCI ; ASCII # TO 1ST TWO DIGITS 
my ie e 
MOV .  DEVIML : E COND MSG LNGTH 
BIC #17700 RO :RESET HIGH BYTE 
ISR OBINASC :CONVERT BINARY ® TO ASCII 
ISR RS, PRINT :GO ISSUE UNIT # MSG 
.WORD UNTTMG-. 
“WORD 22 


RTS PC sEXIT IN-LINE 








SEQ 0096 
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NES FOR RSO3/RSO4 DEVI 


1 
TI 


NAINDEC-11-DTRSA-A 


of ROUT 


SUBROU 


DTRSAA.P11 


- 


OF nt 2 4 
Poy 4 cme 
= Bo oe BY z ay e x 
: Be ft 8 2 ee Geis EE 
2g # os eee e so ew S25 eee £5 se 
& gy & BE Boe ¥ 5S. ae etoos, So Ee . 
a8 = ws te Bia wie GweaeE gO ee F 
— egy WG § Sek. iY Jaws worew L 
a Ge aerate w Eee ecie Sete 
SE ee ee ee 
: ae 
E be bg 
g ve es ats Z 8 8. 
2 afin ost BRe Sy. aa sigs A fees JS 
oi Fee Solu see eeu eee bees ne eo epee ee MEAS VE Soshbry 
3 
2  SESbEgEESSBeEepeuean tendon tesrseyans anenany 


DISPST: 


ee 
-_ 


15S: 


171632 


gE 
mes § ! me 
Se ee 


“cinemas 


DRADER EARNER hth de ttc RC REA CR RRR 


Sa Rea Dea eee ee Kean Reems eee Kee Ree eee eae Been Dee Dae Ree Ree Dee Rene eee ne, ne ene oe ee ee ee ee ee ee ee ee ee ee ee ee | CAR RRR RR 


171550 
171540 





| JO3 
sa os eta RH11/RH70 - RSO3/RSOY DEVICE ROUTINE FOR MPG MACY11 27(732) 24-SEP-76 14:12 PAGE 12-3 SEQ 0095 
D SUBROUTINES FOR RSO3/RSO4 DEVICE ROUTINE 


;DISPLAY TRACK/SECT WORDS’ VALUES 
iBeStrovS AOSRLRe 


HEAD , RO ;GET & CONVERT TRACK VALUE 





006402’ PRTIWD: 
006402" 016700 171400 
171444 


Boesis & 171370 Tbe SECT, ;GET & CONVERT SECT VALUE 
a we BR a, fe 
RTS 


>< >—- b<—-+ & + 6 pp +9 +p — p= 


426’ 004567 O00006 RS 0 a ;PRINT MSG WITH THEIR VALUES 


ak: Sa 


"de 
F ;EXIT IN-LINE 


papa RRRRANIaIIT 


wu 


rs ; ISSUE MSG TO LIST DEVICE SUBROUTINE 

4 + EBRD INT S/R ML ee 

rs REBADRS. REL ADR OF MSG 

5% § HORD BYTCNT MSG BYTE CNT (IF NEGAT 
kg = RESET PRT DEV DEDICATED: ) 
;R4 = te - ar NEGATIVE, USE CMND MODE PRINT 


;GET MSG ADR & MAKE IT ABS 


;GET BYTE COUNT 
;USE CMND MODE PRINT? 


PRINT: 


a 


aa 


oOo 

: 
af 
2B 


ses 










BER RES RS EeES 
i 


<-> b— 6 -b — b— b+ 0 + B bP bb 9 bb bs bb = Pb he ee 


| ; Bese me 
| aed O)070e fas ROY Poke “ iL IPS anne neo aOR 
| 1603 OOeHeO" 160200 SUB R2,RO. :NKE SG ADR, REL 
eit BOBNed” Bi il NOV RL’ (Re) noes ar BYTE COUNT 
He a So aa 
14 * 61 oo00ss 10S IN(R3) , PROGNM 
1615 006500’ 004577 171350 JSR RS, ICLIST :] 
i) Ee Bie “pee 
1618 10’ 171340 ISR RS, ACLIST ;ISSUE MSG SPECIFIED 
1613 006514" 000000 20S: WORD  XXKX 
ibe Ooeees" ea 171330 ix CLIST sISSUE A <CR> & <LF> 
ie54 ete 8418 an BRTEX $00 10 TO Q EXIT 
1625 006532’ 010067 000010 40S MOV RO, SOS 8 
155 Beeeas. BAG25% Hex Rb BOP cr 208, iis Tar THE MSG 
1628 006546’ 000000 ~WORD  XXKX 
1629 006550’ 000000 b0$ “WORD  XXXX 
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1630 006552’ 000205 PRTEX: RTS RS ;EXIT IN-LINE 
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-SBTTL RSO3/RSO4 MESSAGE STORAGE AREA 


a 


R 2P 
i: 


SEEN 8 


oor 
o 8 


el ee 


SSSSBSSSR88S8S8- 8 


nn eee ee ee ed ee oe ee oe en ee oe 
oo 


Pe 


Dos 2 bb bh he he be he eT -— 


SESS SASTAIATAR FB 


B RRPRROR IDR ODR OB RORRRRORRIRRIRE BRR 


se es ®@ @ @ © © © & @ see ee eeeeeeeeees 
ERR RTAR 

_~ 
o 


peeeaine “See 


S85 S888Sssssssssss 


40-44 4 4-44 4 04 04 4 04 04 4 0 4 0 4 0004 0 


Bz 


, ba 
= 
bse 


BRESS8SF 
2 


i 


ne oe oe oe 


PPBRRR 
ee 


Re 
ore, jeren 
Rr ee 


RERIBBS 


/P8/ 
7 LD INT: / 
END OF REPORT /< 18) 129 


/*#*RERSXX DISK UNIT: / 
AXXXXXX/ 


Cot < 12> 
(011><O11>/CK= / 
/ (015><012><O11>/CMNDS: RD= / 
/XXXXXX WR = / 


AXXXXXX CK = / 
TONY er pe cole) <OL> <OL> ake / 
AXXXXXX = / 


/XXXXXX DCLR= 7 

SXXXXXX/ « ><012><O11>/ERRORS: DEV= / 
#XXXXXX = 

TESS SO4S> (012) <O11) RE TRYS: DLT= / 
SXXXXXX =/ 

AXXXXXX/ « AEDs 12><O11><« > / 
AXXXXXX/ < 1B) O18) 13 Pbta “RE TRYS: / 
/XXXXXX/<015><012><O11>/INTERRUPTS: / 
SXXXXXX/ 

/TRAK= / 

/XXXXXX SECT= 7 

SXXXXXX/ 

/STMNT y / 

BITS: 7<015><012><O11> 


"BEFORE ISSUING I/0 CMND:’ 
‘AFTER ISSUING, 1/0 CMND: ° 


*TIMEOUT ON 170’ 
"NON-EXISTENT DRIVE’ 


"ERROR ON INITIATION’ 
"DISK IS OFF-LINE’ 
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1S Sige: HE Bete me 
TALL LS Ce 


CBS ocx 


ibs : 
16 010132’ DVREND= . 


| 
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: .SBTTL FORMATS FOR PROGRAM & DEVICE ROUTINE TABLES 
: : PROGRAM TABLE FORMAT 
1708 oo0242 PTLGTH= 162. | ;PROGRAM TABLE LENGTH - NON MEM MGMNT VERSION OF MPG 
1708 ;(PTLGTH= 212. ;PROGRAM TABLE LENGTH - MEM MGMNT VERSION OF MPG) 
te ooo0000 PFLGWD= +0. oer la 
1 TOP= 2 ; 1 = USER ST THIS PROGRAM 
1710 Bpp004 TOP= : 1 = AN ef THIS P PROGRAM 
1711 000010 WT4IOT= 10 : | = WAITING FOR 170 TERMINA 
1712 000020 I0= 20 : 1 = CONSOLE OR PRINTER 1/0 IN PROGRESS 
1713 000040 SE TDED= 40 : : = THIS PROG SET THE PRT DEV DEDICATED FLAG 
° s 

1715 rian USELBR= 200 - 1s 6 PRSc ise Fhe UNIBUS MAP (MEM MGMNT ONLY) 
171 100000 ACTIVE= 100000 ; 1 = PROGRAM IS URE IVE (SPEETPIED FOR EXECUTION) 
174 oooo02 POPSW= +2. ;PROGRAM’S OPERATION SWITCHES - 1 WORD 
1720 1 TONER= 1 ; 1s 
Ze YCPRG= ! : si CREVICE) 
fe Bu ig gg ee 

= e = 
1725 002000 C = 2000 > 1 = Cy DEVICE LIST 

: zs 

1588 aed Bobkek= 4bG- «t= SORT BS BRtbRCRNERR EON ERROR 
1728 000200 SPOPER= 200 ; 1 = DEVICE SPECIAL OPERATION 
83 Bilis 4? 0S Bd beara 

= 4 = 
1731 = ; 1s ROT AUTOMATICALLY PE OUT ay COUNT 
1732 000010 AURPEP= io : | = AUTO D COUNTS AT END OF COON PASS ONLY 

ai 4 . s -~ 

{533 500002 BPoppvs 2 te HOVSEKEEP. CO sByiE. oh ON Ve GeRIFY. 
1735 000001 NOCOMP= 1 : 1 = DO NOT PRINT PROG COMPLE 
es oo0004 PFWADR= +4. ;%#;PROGRAM FLAGWORD ADDRESS - 1 WORD 
1739 000006 PASCIN= +6.: ;PROGRAM’S NUMBER IN ASCII - 1 WORD 
trie 000010 PNAME= +8. ;PROGRAM’S NAME IN ASCII - & BYTES 
743 000016 PRDIOA= +14. § ;ADDRESS OF READ 1/0 AREA - 1 WORD 
174s ooc020 PWRIOAS +16. ;ADDRESS OF WRITE 1/0 AREA - 1 WORD 
i7u? PSRCST= +18.  ;SOURCE STATEMENTS START ADDRESS - 1 WORD 
178 oo0024 POBJST= +20.  ; OBJECT CODE START ADDRESS - 1 WORD 
1751 000026 PLNGTH= +22.  ;PROG AREA LENGTH (OBJ END MINUS PROG TBL START) - 1 WORD 
178s 000030 PTOCNT= +24.  ;1/0 TIMEOUT COUNT - 1 WORD 


ne 


_ se, 


¢ 

4 
we 
o-oo. 
o-e- 


+0 +--+ 0-0-6 -e- 


PATER Eee 


> +0 +0 +6 + 0-- 6 +0 +b +0 + 0-+ 0 +> + 0-0 + +--+ 0-0 +0 = & &-+0-+ b= &< B+ B+ 2 B-* B= b < B-< b+ H+ BB -< 2 Bh 2h + +0 +0 +0 +o =o 
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000032 PMOLCD= +26.  ;DEV ROUT MODEL ® CODE - 1 WORD 
000034 POPNTR= +28.  ;CURRENT DEVICE NUMBER POINTER - 1 BYTE 

000035 PCURDV= +29. ; CURRENT DEVICE ® - 1 BYTE 

000036 PDNUMS: +30.  ;DEVICE NUMBERS - 16 BYTES 

o000sé PTEMO= +46. | ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

000060 PTEMI= +48. § ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

000062 PTEM2= +50.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

o00064 PTEN3= +52.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

000066 PTEMY= +54.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

000070 PTEMS= +56.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

000072 PTEMG= +58.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

000074 PTEN?= +60.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

000076 PTEMS= +62.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

000100 PTENS= +64.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD | 
000102 PTEMO= +66.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD | 
000104 PTEMI1= +68.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD | 
000106 PTEMI2= +70.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
000110 PTEMI3= +72.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
000112 PTEMI4= +74.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD | 
000114 PTEMIS= +76. USER PROGRAM TEMPORARY STORAGE - 1 WORD | 
000116 PNBR= +78. | ; NUMBER OF BYTES TO TRANSFER ON MOVE (NBR) - 1 WORD : | 
000120 PSRC= +80. — ;DATA SOURCE ADDRESS ON MOVE (SRC) - 1 WORD 

000122 POST= +82.  ;DATA DESTINATION ADORESS ON MOVE (DST) - 1 WORD | 
000124 PSTKCT= +84.  ; 8 OF WORDS (X 2) SAVED OFF STACK - 1 WORD 

000126 PSTKSV= +86.  ;STACK WORDS STORAGE AREA - 30 WORDS | 
o00z22 PSVREG= +146.  ;USER’S RO THRU RS REGISTERS STORAGE AREA - & WORDS 

000236 PUSRPC= +158.  ;USER’S CURRENT PROGRAM COUNTER - 1 WORD 
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| 1810 SFOLLOWING ENTRIES (PROIOX THRU PUBMAP) ARE ONLY IN MEM MGMNT VERSION 
| it ;(PROIOX= +160. ;18/22 BIT ABSOLUTE ADDRESS OF READ 1/0 AREA - 2 WORDS) 
| isis ;(PROIOV= +164. ;18 BIT VIRTUAL ADDRESS OF READ 1/0 AREA - 2 WORDS) 
eit, s(PHRIOX= +168. ;16/22 BIT ABSOLUTE ADDRESS OF WRITE 1/0 AREA - 2 WORDS) 
| te ;(PWRIOVe +172. ;18 BIT VIRTUAL ADDRESS OF WRITE 1/0 AREA - 2 WORDS) 
| i ; (PUPARS= +176. ;STORAGE AREA FOR USER'S PAR'S 0 THRU 7 - 8 WORDS) 
| is ; (PUPDRS= +192. ;STORAGE AREA FOR USER'S POR’S 0 THRU 7 - 8 WORDS) 
«1s ;(PUBMAP= +208. ;1ST UNIBUS MAP REG 8 AND # OF REGS USED - 1 WORD) 
1 SEND OF MEM MGMNT ONLY ENTRIES 
ie 000240 PTSIZE= +160.  ;PROGRAN TABLE SIZE IN BYTES - 1 WORD - NON MEM MGMNT 
a ;(PTSIZE= +210. ;PROGRAM TABLE SIZE IN BYTES - 1 WORD - MEM MGMNT VERSION) 
ooce42 PTEND= +162. © ;END OF PROGRAM TABLE - NON MEM MGMNT VERSION 
1834 ;(PTEND= +212. ;END OF PROGRAM TABLE - MEM MGMNT VERSION) 
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MACY11 27(732) 


; DEVICE ROUTINE TABLE 


ORTLTH= 78. 


bevesz= +0. 
DEVFWO= 42. 


DHKPAD= +28. 
DERPAD= +30. 
DKILAD= +32. 
DECTAD= +34. 
DTOEAD= +36. 
DEVIOB= +38. 
DEVDER= +40. 
DVUPRT= +42. 
DVCPRT= +44. 
DEVBTA= +46. 
DVRTDA= +48. 


;DEVICE ROUTINE TABLE LENGTH 


;DEVICE ROUTINE SIZE IN BYTES - 1 WORD 
;DEVICE ROUTINE FLAGWORD - 1 WORD 
DEVICE INTERFACE WORD ® 1 - 1 WORD 
;DEVICE INTERFACE WORD 8 2 - 1 WORD 
;DEVICE INTERFACE WORD # 3 - 1 WORD 
;DEVICE INTERFACE WORD 8 4 - 1 WORD 
;DEVICE INTERFACE WORD # S - 1 WORD 
DEVICE INTERFACE WORD 8 & - 1 WORD 
;DEVICE INTERFACE WORD 8 7 - 1 WORD 
;DEVICE INTERFACE WORD 8 8 - 1 WORD 
;DEVICE REGISTERS ADDRESS - 1 WORD 
;DEVICE INTERRUPT VECTOR ADDRESS - 1 WORD 

;DEVICE READ PROCESSOR STATUS WORD (BUS REQ) - 1 WORD 
;DEVICE WRITE PROC STATUS WORD (BUS REQ) - 1 WORD 
;DEVICE ROUT HOUSEKEEPING ROUT REL ENTRY ADR - 1 WORD 
;DEVICE ROUT REPORT ROUT REL ENTRY ADR - 1 WORD 

;DEVICE ROUT KILL ROUTINE REL ENTRY AOR - 1 WORD 

;DEVICE ROUT ERROR COUNTER REL ADR - 1 WORD 

;DEVICE ROUT TIMEOUT ERR ROUT REL ENTRY ADR - 1 WORD 
;DEVICE 170 BUSY BRANCH ADDRESS (CIOBSY) - 1 WORD 
;DEVICE ERROR BRANCH ADORESS (CUPGER) - 1 WORD 

;USER MODE PRINT BRANCH ADDRESS (ULIST) - 1 WORD 

;CMND MODE PRINT BRANCH ADDRESS (CLIST) - 1 WORD 

;CONVERT BINARY TO ASCII BR ADR (BINASC) - 1 WORD 
;CONVERT BINARY TO DECIMAL ASCII BR ADR (BTASLZ) - 1 WORD 


| MAINOEC-11-D 
| DTRSAA.P11 


1898 
18¢e 


1 


esc tiriaseh a 


WOWWWWOwWwWwWwWWw 
= 0 b= b= B= b= bo po he 


WONMUIE WO 


> b+ b+ b 0 b— b= b= bb b+ bb bh 8 8 ow oo w+ 


SHE 


ae ee ee 


NE TABLES 
;CONVERT PACKED DECIMAL TO ASCII BR ADR (DECASC) - 1 WORD 
;MPG SYSTEM FLAGWORD ADDRESS (CSYSFW) - 1 WORD 

;SET INTERRUPT VECTOR BR ADR (SETVEC) - 1 WORD 

;CLEAR INTERRUPT VECTOR BR ADR (CLRVEC) - 1 WORD 

;TEST INTERRUPT VECTOR BR ADR (TSTVEC) - 1 WORD 

;RETURN FROM INTERRUPT BR AOR (RTNINT) - 1 WORD 

;GET DATA BYTE BR ADR (GETBYT) - 1 WORD 

;PUT DATA BYTE BR ADR (PUTBYT) - 1 WORD 

;DEVICE ROUT REL SYMBOL TABLE POINTER - 1 WORD 

;DEVICE ROUT REL ENTRY TABLE POINTER - 1 WORD 

;PACK TABLE EXTEN. REL POINTER - 1 WORD 

; VECTOR TABLE EXTEN. REL POINTER - 1 WORD 

;COMPILER TBL EXTEN. REL POINTER - 1 WORD 

;DEVICE INTERFACE WORD SYMBOL TBL REL POINTER - 1 WORD 
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;END OF DEVICE ROUTINE TABLE 


TRSATORNATS FOR PROGRAN § DEVICE ROUTING TROLES 
000062 DVPDTA= +50. 
000064 DVSFWD= +52. 
000066 DVSVEC= +54. 
000070 DVCVEC= +56. 
000072 DVTVEC= +58. 
000074 DVRINT= +60. 
000076 DVGETB= +62. 
000100 DVPUTB= +64. 
000102 DEVSTP= +66. 
000104 DEVETP= +68. 
000106 DVPTEP= +70. 
000110 DVWVTEP= +72. 
000112 DVCTEP= +74. 
000114 DVIWSP= +76. 
000116 DRTEND= +78. 
000001 END 


SEQ 0107 


ay 9803 By a Be 


SES 0108 


as . Hiker 
ae ia 
. 
qu 
ih ise 
i 
ro BS 
id 
a. 
Sis 
a 
ae 
fi Sees 
om 
=F 
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~OTm*SRSyBOL. TABLE 
(9 PAGES) 


IME RATIO: 24/19=1.2 
SK 
PAGES 


#,0 
RUN-T 
RUN-T 
_ CORE USED: 
| DOCUMENT 





IME: 5 12 1 SECONDS 


ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 
TRSAA/NL: TOC/DOC=DTRSAA. P11 
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